﻿' BasecampVB - http://www.tidbitsandtangents.com
' Copyright (c) 2009
' by Rusty S. Swayne
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Namespace DAL

    Public Class ToDoItemDetails

        Public Sub New( _
            ByVal todo_item_id As Integer, _
            ByVal todo_list_id As Integer, _
            ByVal creator_id As Integer, _
            ByVal content As String, _
            ByVal comments_count As Integer, _
            ByVal position As Integer, _
            ByVal responsible_party_id As Integer, _
            ByVal responsible_party_type As String, _
            ByVal due_at As DateTime, _
            ByVal completed As Boolean, _
            ByVal created_at As DateTime, _
            ByVal created_on As DateTime)

            Me.todo_item_id = todo_item_id
            Me.todo_list_id = todo_list_id
            Me.creator_id = creator_id
            Me.content = content
            Me.comments_count = comments_count
            Me.position = position
            Me.responsible_party_id = responsible_party_id
            Me.responsible_party_type = responsible_party_type
            Me.due_at = due_at
            Me.completed = completed
            Me.created_at = created_at
            Me.created_on = created_on

        End Sub



#Region "Properties"

        Private _todo_item_id As Integer
        Public Property todo_item_id() As Integer
            Get
                Return _todo_item_id
            End Get
            Set(ByVal value As Integer)
                _todo_item_id = value
            End Set
        End Property

        Private _todo_list_id As Integer
        Public Property todo_list_id() As Integer
            Get
                Return _todo_list_id
            End Get
            Set(ByVal value As Integer)
                _todo_list_id = value
            End Set
        End Property

        Private _creator_id As Integer
        Public Property creator_id() As Integer
            Get
                Return _creator_id
            End Get
            Set(ByVal value As Integer)
                _creator_id = value
            End Set
        End Property


        Private _content As String
        Public Property content() As String
            Get
                Return _content
            End Get
            Set(ByVal value As String)
                _content = value
            End Set
        End Property

        Private _comments_count As Integer
        Public Property comments_count() As Integer
            Get
                Return _comments_count
            End Get
            Set(ByVal value As Integer)
                _comments_count = value
            End Set
        End Property

        Private _position As Integer
        Public Property position() As Integer
            Get
                Return _position
            End Get
            Set(ByVal value As Integer)
                _position = value
            End Set
        End Property

        Private _responsible_party_id As Integer
        Public Property responsible_party_id() As Integer
            Get
                Return _responsible_party_id
            End Get
            Set(ByVal value As Integer)
                _responsible_party_id = value
            End Set
        End Property

        Private _responsible_party_type As String
        Public Property responsible_party_type() As String
            Get
                Return _responsible_party_type
            End Get
            Set(ByVal value As String)
                _responsible_party_type = value
            End Set
        End Property

        Private _due_at As DateTime
        Public Property due_at() As DateTime
            Get
                Return _due_at
            End Get
            Set(ByVal value As DateTime)
                _due_at = value
            End Set
        End Property

        Private _completed As Boolean
        Public Property completed() As Boolean
            Get
                Return _completed
            End Get
            Set(ByVal value As Boolean)
                _completed = value
            End Set
        End Property

        Private _created_on As DateTime
        Public Property created_on() As DateTime
            Get
                Return _created_on
            End Get
            Set(ByVal value As DateTime)
                _created_on = value
            End Set
        End Property


        Private _created_at As DateTime
        Public Property created_at() As DateTime
            Get
                Return _created_at
            End Get
            Set(ByVal value As DateTime)
                _created_at = value
            End Set
        End Property


#End Region


    End Class

End Namespace
